function [varargout]=Amatic(varargin)
A=varargin{1};
AA=varargin{2};
p=size(A);
p=p(1,2);
for i = 1:p,;
    s=sign(A(1,i));
    ss=sign(AA(1,i));
    if s == ss        
    else
        AA(:,i)=AA(:,i)*-1;
    end 
end
varargout{1}=AA;